﻿Public Class Sach_DTO

    Private _Ten As String
    Public Property Ten() As String
        Get
            Return _Ten
        End Get
        Set(ByVal value As String)
            _Ten = value
        End Set
    End Property

    Private _MaTL As Integer
    Public Property MaTL() As Integer
        Get
            Return _MaTL
        End Get
        Set(ByVal value As Integer)
            _MaTL = value
        End Set
    End Property

    Private _TacGia As String
    Public Property TacGia() As String
        Get
            Return _TacGia
        End Get
        Set(ByVal value As String)
            _TacGia = value
        End Set
    End Property

    Private _SoLuong As Integer
    Public Property SoLuong() As Integer
        Get
            Return _SoLuong
        End Get
        Set(ByVal value As Integer)
            _SoLuong = value
        End Set
    End Property

    Private _DonGia As Long
    Public Property DonGia() As Long
        Get
            Return _DonGia
        End Get
        Set(ByVal value As Long)
            _DonGia = value
        End Set
    End Property

    Public Sub New(ByVal tensach As String, ByVal mtl As Integer, ByVal tg As String, ByVal sl As Integer, ByVal dg As Long)
        Ten = tensach
        MaTL = mtl
        TacGia = tg
        SoLuong = sl
        DonGia = dg
    End Sub
End Class
